home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / bbs / fax_it_cnet.lzh / FAX-IT / datacall.gpf < prev    next >
Text File  |  1994-09-10  |  2KB  |  63 lines
  1. /*
  2.  * Start the BBS!
  3.  *
  4.  * This is a sample of what you should have in your call ARexx script
  5.  * for calling the BBS.
  6.  *
  7.  * In order for your BBS to properly send out the FAX messages you will
  8.  * need to have this script in your GPFax directory. If you do not intend
  9.  * to use your FAX modem for the BBS but you are going to have it online
  10.  * at all times to send/receive FAXs then this script may not be needed
  11.  */
  12.  
  13. options results
  14.  
  15.  
  16.  
  17. /* To keep FAX-IT from trying to use the GPFax program while a caller
  18.  * is using the FAX modem, an empty file is placed in the T: directory.
  19.  * The ECHO command is used to remove any chance of ARexx error.
  20.  */
  21. Shell Command 'c:Echo >T:FAXnode ""'
  22.  
  23.  
  24.  
  25.  
  26. /* Now we must talk to GPFax
  27.  */
  28. address rexx_gpfax
  29.  
  30. BAUDRATE ; br=result
  31.  
  32.  
  33.  
  34.  
  35. /* This next line is optional. All it does is add a line to the
  36.  * system log stating a FAX line call came in
  37.  */
  38. address command 'Echo >>Cnet:sysdata/log/calls k1Baud='br'k0q1'
  39.  
  40.  
  41.  
  42.  
  43. /* Now to call the BBS 
  44.  *address command 'Cnet:bb -B'br' -U1 -L1 -G -7 -S'
  45.  */
  46.  
  47.  
  48.  
  49.  
  50. /* Now that the user is off the line, lets wait a moment, remove the
  51.  * FAX in use indicator in the T: directory and finaly check to see if
  52.  * any FAX mail needs to be processed
  53.  */
  54. shell command 'c:wait 2'
  55. shell command 'C:delete t:FAXnode#?'  
  56.  
  57. /* The DOS command RUN is used here to allow GPFax to have control back
  58.  * from this script. If RUN is not used, the next script called will not
  59.  * be able to access GPFax and in this case, no FAX mail will be sent.
  60.  */
  61. shell command 'C:Run RX Doors:Fax-IT/AutoFAX.gpf'
  62. shell command 'C:Run RX Doors:Fax-IT/FAX-Trap'
  63.